home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / windowDevice.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-08  |  571 b   |  19 lines  |  [TEXT/3PRM]
  1. definition module windowDevice;
  2.  
  3.  
  4. //    Version 0.8 to 1.0
  5.  
  6.  
  7. import    windowInternal, windowOpen, windowAccess;
  8.  
  9.  
  10. WindowFunctions    :: DeviceFunctions *s;
  11.  
  12. WindowSetThumbs    :: !Window !Int !Int !Int !Int !(!Int, !Int) !(UpdateFunction *s) !*s !Toolbox
  13.                 -> (!Window, !*s, !Toolbox);
  14.  
  15. IOStateGetCursorPos        ::                !(IOState s) -> (!Bool, !Bool, !WindowPtr, !IOState s);
  16. IOStateGetLocalCursor    ::                !(IOState s) -> (!CursorShape, !IOState s);
  17. IOStateGetGlobalCursor    ::                !(IOState s) -> (!CursorShape, !IOState s);
  18. IOStateSetCursorShape    :: !CursorShape !(IOState s) -> IOState s;
  19.